home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / demos / mail / scripts.cst / 00021_Button handlers.ls < prev    next >
Encoding:
Text File  |  1996-07-07  |  1.2 KB  |  48 lines
  1. -- button handlers
  2.  
  3. on keyHandler
  4.   global doneFrame, QTspriteDuration, QTsprite, QTspriteName, QThandler
  5.   global endOfSection, playAll
  6.   global restartBtnSprite, continueBtnSprite, skipFwdBtnSprite, skipBackBtnSprite
  7.   
  8.   if the shiftDown then 
  9.     set the movietime of sprite QTsprite to QTspriteDuration - 20
  10.     set the movierate of sprite QTsprite to 1
  11.   else
  12.     if the visible of sprite restartBtnSprite then
  13.       hideNavBtns
  14.       
  15.       continue
  16.     else
  17.       pause
  18.       
  19.       showNavBtns
  20.     end if
  21.     
  22.     
  23.     updatestage
  24.   end if
  25.   
  26. end
  27.  
  28.  
  29. on showNavBtns
  30.   global restartBtnSprite, continueBtnSprite, skipFwdBtnSprite, skipBackBtnSprite
  31.   
  32.   set the visible of sprite continueBtnSprite to TRUE
  33.   set the visible of sprite restartBtnSprite to TRUE
  34.   set the visible of sprite skipFwdBtnSprite to TRUE
  35.   set the visible of sprite skipBackBtnSprite to TRUE
  36.   
  37. end
  38.  
  39. on hideNavBtns
  40.   global restartBtnSprite, continueBtnSprite, skipFwdBtnSprite, skipBackBtnSprite
  41.   
  42.   set the visible of sprite continueBtnSprite to FALSE
  43.   set the visible of sprite restartBtnSprite to FALSE
  44.   set the visible of sprite skipFwdBtnSprite to FALSE
  45.   set the visible of sprite skipBackBtnSprite to FALSE
  46.   
  47. end
  48.